Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue68/sync/testFileSync1.dfm

Text File | 2001-02-28 | 4.3 KB | 225 lines

object frmMain: TfrmMain
  Left = 325
  Top = 184
  Width = 440
  Height = 467
  Caption = 'FileSync tester'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbLog: TListBox
    Left = 184
    Top = 8
    Width = 241
    Height = 425
    ItemHeight = 13
    TabOrder = 16
  end
  object btnEnterCS: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Enter CS'
    TabOrder = 0
    OnClick = btnEnterCSClick
  end
  object btnLeaveCS: TButton
    Left = 8
    Top = 36
    Width = 75
    Height = 25
    Caption = 'Leave CS'
    TabOrder = 1
    OnClick = btnLeaveCSClick
  end
  object cbDeleteCS: TCheckBox
    Left = 96
    Top = 40
    Width = 81
    Height = 17
    Caption = 'Delete'
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = cbDeleteCSClick
  end
  object btnEnterM: TButton
    Left = 8
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Acquire M'
    TabOrder = 3
    OnClick = btnEnterMClick
  end
  object btnLeaveM: TButton
    Left = 8
    Top = 100
    Width = 75
    Height = 25
    Caption = 'Release M'
    TabOrder = 4
    OnClick = btnLeaveMClick
  end
  object cbDeleteM: TCheckBox
    Left = 96
    Top = 104
    Width = 81
    Height = 17
    Caption = 'Delete'
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnClick = cbDeleteMClick
  end
  object btnSignalE: TButton
    Left = 8
    Top = 136
    Width = 75
    Height = 25
    Caption = 'Signal E'
    TabOrder = 7
    OnClick = btnSignalEClick
  end
  object btnWaitForE: TButton
    Left = 8
    Top = 164
    Width = 75
    Height = 25
    Caption = 'WaitFor E'
    TabOrder = 8
    OnClick = btnWaitForEClick
  end
  object cbResetE: TCheckBox
    Left = 96
    Top = 168
    Width = 81
    Height = 17
    Caption = 'Reset'
    Checked = True
    State = cbChecked
    TabOrder = 10
  end
  object btnResetE: TButton
    Left = 8
    Top = 192
    Width = 75
    Height = 25
    Caption = 'Reset E'
    TabOrder = 9
    OnClick = btnResetEClick
  end
  object btnAcquiredQ: TButton
    Left = 96
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Acquired?'
    TabOrder = 5
    OnClick = btnAcquiredQClick
  end
  object btnJoinG: TButton
    Left = 8
    Top = 228
    Width = 75
    Height = 25
    Caption = 'Join G'
    TabOrder = 11
    OnClick = btnJoinGClick
  end
  object btnLeaveG: TButton
    Left = 8
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Leave G'
    TabOrder = 12
    OnClick = btnLeaveGClick
  end
  object cbDeleteG: TCheckBox
    Left = 96
    Top = 260
    Width = 81
    Height = 17
    Caption = 'Delete'
    Checked = True
    State = cbChecked
    TabOrder = 13
    OnClick = cbDeleteGClick
  end
  object btnSendMsg: TButton
    Left = 8
    Top = 292
    Width = 75
    Height = 25
    Caption = 'Send Msg'
    TabOrder = 14
    OnClick = btnSendMsgClick
  end
  object btnReceiveMsg: TButton
    Left = 8
    Top = 320
    Width = 75
    Height = 25
    Caption = 'Receive Msg'
    TabOrder = 15
    OnClick = btnReceiveMsgClick
  end
  object btnWriteSWMR: TButton
    Left = 8
    Top = 356
    Width = 75
    Height = 25
    Caption = 'Write SWMR'
    TabOrder = 17
    OnClick = btnWriteSWMRClick
  end
  object btnReadSWMR: TButton
    Left = 8
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Read SWMR'
    TabOrder = 18
    OnClick = btnReadSWMRClick
  end
  object cbDeleteSWMR: TCheckBox
    Left = 96
    Top = 412
    Width = 81
    Height = 17
    Caption = 'Delete'
    Checked = True
    State = cbChecked
    TabOrder = 19
    OnClick = cbDeleteGClick
  end
  object btnDoneWriting: TButton
    Left = 88
    Top = 356
    Width = 75
    Height = 25
    Caption = 'Done writing'
    TabOrder = 20
    OnClick = btnDoneWritingClick
  end
  object btnDoneReading: TButton
    Left = 88
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Done reading'
    TabOrder = 21
    OnClick = btnDoneReadingClick
  end
end